home *** CD-ROM | disk | FTP | other *** search
- ; Script to Install OpusFTP Demonstration module to pre-existing
- ; Directory Opus 5.11 system.
- ; Developed by Andrew Dunbar © GPSoftware, Brisbane 1995
- ; $VER: Install_OpusFTP 1.0 8.08.95
- ;
- ;
-
- (if
- (NOT(exists "DOpus5:" (noreq)))
- (
- (abort "There is no DOpus5: assign\n"
- "on your machine - please install\n"
- "Directory Opus 5 first"
- )
- )
- (if (askbool
- (prompt "\nDirectory Opus 5 is present on your system\n"
- "You are therefore able to use OpusFTP\n"
- "Do you wish to proceed with the installation?"
- )
- (help "The installer has determined that you already "
- "have a copy of Directory Opus 5 installed "
- "on your system. OpusFTP will create a directory "
- "named 'FTP' in Opus's directory where OpusFTP "
- "will be installed"
- )
- )
- (
- (makeassign "OpusFTP" "")
-
- (makedir "DOpus5:FTP")
-
- (if (exists "DOpus5:FTP/ftp.config" (noreq))
- (set configname "DOpus5:FTP/ftp.config_sample")
- (set configname "DOpus5:FTP/ftp.config")
- )
-
- ; (message "config name: " configname )
-
- (copyfiles
- (prompt "Installing sample config file")
- (help "The configuration file lets you "
- "set default options for FTP connections "
- "as well as the log window or file "
- "and the FTP address book")
- (source "OpusFTP:ftp.config")
- (dest "Dopus5:ftp")
- (newname configname)
- (confirm)
- )
-
- (copyfiles
- (prompt "Installing AmigaGuide documentation")
- (help "This is the instructions on how to "
- "set up and use OpusFTP")
- (source "OpusFTP:")
- (dest "DOpus5:FTP")
- (pattern "OpusFTP.guide#?")
- (confirm)
- )
-
- (set romver (/ (getversion "exec.library" (resident)) 65536 ))
-
- (if (>= romver 39)
- (set viewer "MultiView")
- (set viewer "AmigaGuide")
- )
-
- (tooltype
- (dest "DOpus5:FTP/OpusFTP.guide")
- (setdefaulttool viewer)
- )
-
-
- (copylib
- (prompt "Installing ftp.module")
- (help "This is the actual Directory Opus module "
- "which enables you to connect your Amiga "
- "to the internet and access files as easily "
- "as if they were on your own hard drive")
- (source "OpusFTP:Modules/ftp.module")
- (dest "DOpus5:Modules")
- (confirm)
- )
-
- (copyfiles
- (prompt "Installing sample buttons")
- (help "These are some example button banks "
- "for controlling the operation of OpusFTP. "
- "Both text buttons and image buttons are included")
- (source "OpusFTP:Buttons")
- (dest "DOpus5:Buttons")
- (all)
- (confirm)
- )
-
- (copyfiles
- (prompt "Installing button images")
- (help "These are the images for the sample image buttons")
- (source "OpusFTP:Images")
- (dest "DOpus5:Images")
- (all)
- (confirm)
- )
-
- (message "If you are running Directory Opus now\n"
- "you must quit and restart it\n"
- "or you will not be able to use\n"
- "OpusFTP"
- )
-
- (makeassign "OpusFTP")
- )
- )
- )
-